<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
<link rel="stylesheet" href="../style/journal.css" type="text/css" />
<style type="text/css"><!--
.googleadsense {
	margin: 2px;
	padding: 0px;
//--></style><script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-65008-1";
urchinTracker();
</script><title>用 Perl6::Rules 来写 Formatter</title>
</head>
<body>
<a href="index.html">Journal</a>(2005) | <a href="../blog/"><b>Blog</b></a>(2006) | <a href="http://www.fayland.org/cgi-bin/random_link.pl">RandomLink</a> | <a href="AboutFayland.html">WhoAmI</a> | <a href="LiveBookmark.html">LiveBookmark</a> | <a href="http://www.fayland.org/">HomePage</a>
<p><&lt;Previous: <a href="Catalyst_Authenticate.html">Catalyst Authenticate</a>&nbsp;&nbsp;>>Next: <a href="Catalyst_Flaw.html">Catalyst 的一个不足（一个已去掉）</a></p>
<h1>用 Perl6::Rules 来写 Formatter</h1>
<div class='content'>
<p>Category: <a href='Modules.html'>Modules</a> &nbsp; Keywords: <b>Formatter Perl6::Rules</b></p><h3>简述</h3>我用不太习惯 Kwiki 或 Textile 格式。以为我经常要用到模块，所以我更喜欢将<br /><pre>L&lt;Perl6::Rules> 直接映射到 <a href="http://search.cpan.org/perldoc?Perl6::Rules">http://search.cpan.org/perldoc?Perl6::Rules</a></pre><br />或者我拥有一些朋友，如果程序能自动映射他们的名字到他们的主页那将是比较美好的一件事。<br />当然还有很多。这些毫无疑问属于定制/customize, 只好自己写代码了。<p />写这些东西无非是正则表达式替换而已。于是想着试试 Perl6 代码。到 <a href="http://search.cpan.org"><a href="http://search.cpan.org">CPAN</a></a> 上下了 Damain Conway 的 <a href="http://search.cpan.org/perldoc?Perl6::Rules">Perl6::Rules</a> 回来。实话说，这模块真是很混，没有很好的完成 Perl6 的 Grammar & Rule, 写起来及其不顺手。<br />也没啥好办法，只好先折腾了。权当练习 Perl6 了。<br />说实话，我水平也不咋的。这练习也不考虑什么性能或者更简练的方法了。如有错误可以发 mail 给我。 Thanks.<br /><h4>Exercise</h4>首先来完成自动映射模块：<br /><pre>$text =~ s:g{<br />    (&lt;ws>)L\&lt;([\w|\:]+)\>(&lt;ws>)<br />}{<br />    $1&lt;a href="http://search.cpan.org/perldoc\?$2">$2&lt;/a>$3<br />};</pre><br />简单解释下代码：s:g{}{}; 是 s{}{}g 的新版。<pre>&lt;ws></pre>是一个 rule, 表示空白（可以匹配新行）。<p />其次来实现常用字映射：<br /><pre>my %mapping_word = (<br />    '<a href="http://blog.<a href="http://blog.chunzi.org">chunzi</a>.org">chunzi</a>' => 'blog.chunzi.org',<br />    '<a href="http://www.livejournal.com/users/joe_jiang/"><a href="http://www.livejournal.com/users/joe_jiang/">joe jiang</a></a>' => 'www.livejournal.com/users/joe_jiang/',<br />    '<a href="http://www.wanghui.org"><a href="http://www.wanghui.org">cnhackTNT</a></a>' => 'www.wanghui.org',<br />    'CPAN' => 'search.cpan.org',<br />);<br /># my/our/local $p; IS FAILED!<br /># BE CAREFUL! must be $main::p!<br />foreach $main::p (keys %mapping_word) {<br />    $text =~ s{\b$::p\b}{&lt;a href="http://$mapping_word{$main::p}">$main::p&lt;/a>};<br />}</pre><br />本应该先用 split 将 $text 按词分开，然后用 map 将词替换再 join 回去。这应当比正则要效率高一点。<br />这里有一让我感到混的就是 my/our $p; 怎么都不行，害我调试了老半天才知道。郁闷。<br />简单解释下代码：这里的 $::p 是变量内插。在 Perl6::Rules 里变量内插必须是 $:: @:: %:: 什么的。<br /><b>另外注意的是要 $main::p; 不能用 my/our/local $p;</b><br />变量内插的是 main 里的变量。而不是当前包的变量。<p />我比较喜欢 Kwiki 的 = == === ====<br />变量内插尽然在下面的代码中运行不起来：<br /><pre># = H1 == H2<br /># YAP!! FAILED!!!<br />#for my $n (1 .. 4) {<br />#    $text =~ s:g{[^|\n]=&lt;$::n>&lt;ws>(.+?)\n}{\&lt;h$n>$1&lt;/h>};<br />#}<br />$text =~ s:g{[^|\n]=&lt;1>&lt;ws>(.+?)\n}{\&lt;h1>$1&lt;/h1>};<br />$text =~ s:g{[^|\n]=&lt;2>&lt;ws>(.+?)\n}{\&lt;h2>$1&lt;/h2>};<br />$text =~ s:g{[^|\n]=&lt;3>&lt;ws>(.+?)\n}{\&lt;h3>$1&lt;/h3>};<br />$text =~ s:g{[^|\n]=&lt;4>&lt;ws>(.+?)\n}{\&lt;h4>$1&lt;/h4>};</pre><br />迫不得已只好重复写了四次。:(<p />其他的一些诸如 URL映射，code 代码块 < 自动替换啥的也不说了。有些类如 * li 的也还没实现。<br />革命尚未成功，同志还需努力呀。</div>
<p><&lt;Previous: <a href="Catalyst_Authenticate.html">Catalyst Authenticate</a>&nbsp;&nbsp;>>Next: <a href="Catalyst_Flaw.html">Catalyst 的一个不足（一个已去掉）</a></p>
<p><strong>Options:</strong> <a href='http://del.icio.us/post?title=%E7%94%A8%20Perl6::Rules%20%E6%9D%A5%E5%86%99%20Formatter&url=http://www.fayland.org/journal/Perl6_Rules.html'>+Del.icio.us</a></p>
<strong>Related items</strong>
<ul><li><a href='Catalyst_Authenticate.html'>Catalyst Authenticate</a> < <span class='digit'>2005-09-26 12:50:39</span> ></li><li><a href='050328.html'>Catalyst & Eplanet</a> < <span class='digit'>2005-03-28 13:19:19</span> ></li><li><a href='050423.html'>Day [05.4.23] stay with me</a> < <span class='digit'>2005-04-23 16:17:02</span> ></li><li><a href='Catalyst_Flaw.html'>Catalyst 的一个不足（一个已去掉）</a> < <span class='digit'>2005-09-27 13:44:31</span> ></li><li><a href='Catalyst_Session_Win32.html'>Catalyst 在 Win32 下的 Session</a> < <span class='digit'>2005-09-29 11:08:04</span> ></li><li><a href='Catalyst_NoFavIcon.html'>Catalyst && favicon.ico</a> < <span class='digit'>2005-09-30 00:57:57</span> ></li><li><a href='Catalyst_Overview.html'>我对 Catalyst 的理解和介绍</a> < <span class='digit'>2005-10-08 01:39:40</span> ></li><li><a href='Catalyst_XMLRPC.html'>Catalyst && XML-RPC</a> < <span class='digit'>2005-10-11 21:50:30</span> ></li><li><a href='Catalyst_YAML.html'>Catalyst config YAML</a> < <span class='digit'>2005-12-10 12:50:39</span> ></li><li><a href='CatalystAdventCalendar_CN.html'>Catalyst Advent Calendar 中文版</a> < <span class='digit'>2005-12-15 23:28:40</span> ></li></ul>
Created on <span class="digit">2005-09-27 10:02:45</span>, Last modified on <span class="digit">2005-09-27 12:15:01</span><br />
Copyright 2004-2005 All Rights Reserved. Powered by <a href="Eplanet.html">Eplanet</a> && <a href='http://catalyst.perl.org'>Catalyst</a> 5.62.
</body>
</html>